#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'

/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! SD1100I                                                 !
+------------------+---------------------------------------------------------+
!Descricao         ! Ponto de Entrada executado apos agravacao dos itens     !
!                  ! da nota de entrada              !
+------------------+---------------------------------------------------------+
!Autor             ! TSC180 - Emerson Augusto                                !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 07/06/11                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
! Analise de gravacao de CFOP                                                !
*/



************************
User Function SD1100I()
************************

_lerr:=.F.
IF SD1->D1_TIPO == 'N'
	IF VAL(substr(SD1->D1_CF,1,1)) > 4
		_lerr :=.t.
	Endif
	if len(alltrim(SD1->D1_CF)) < 4
		_lerr :=.t.
	Endif
Endif
IF _lErr == .T. //SE GRAVOU ERRADO
	aArquivo := fCreate(ALLTRIM(SD1->D1_DOC)+ALLTRIM(SD1->D1_SERIE)+ALLTRIM(SD1->D1_ITEM)+".NFE",0)
	Linha := SD1->D1_DOC+SD1->D1_SERIE+SD1->D1_FORNECE+SD1->D1_LOJA+SD1->D1_ITEM+SD1->D1_CF
	fWrite(aArquivo,Linha)
	fClose(aArquivo)
	_cCF:= GETADVFVAl("SF4","F4_CF",XFILIAL("SF4")+SD1->D1_TES,1," ")
	_cUF:= GETADVFVAl("SA2","A2_EST",XFILIAL("SA2")+SD1->D1_FORNECE+SD1->D1_LOJA,1," ")
	if _cUF <> 'SC'
		_cCF:='2'+SUBSTR(_ccf,2,3)
	Endif
	if _cUF == 'EX'
		_cCF:='3'+SUBSTR(_ccf,2,3)
	Endif
	Reclock("SD1",.F.)
	SD1->D1_CF:=_cCF
	Msunlock()
Endif
Return

